home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / BODECL.PAS next >
Pascal/Delphi Source File  |  1985-10-19  |  2KB  |  51 lines
  1. Type
  2.    AnyString   =  string[255];
  3.    HeapBuf     = ^AnyBuf;
  4.    AnyBuf      =  Record
  5.                      Screen : array[1..4000] of byte;
  6.                   end;
  7.    ColumnType  =  1..80;      { With $R directive active, }
  8.    RowType     =  1..25;      { keeps video routines in line }
  9.    result      =  Record
  10.                      AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer;
  11.                   end;
  12.  
  13. Var
  14.  
  15.    TimeElapsed,               { Used by Etime . . . }
  16.    SaveElapsed,               { "    "  "           }
  17.    Ecode,                     { "    "  Exec for error return }
  18.    I                          { the ubiquitous index variable  }
  19.                      : Integer;
  20.    SaveX                      { handy for saving WhereX result }
  21.                      : ColumnType;
  22.    SaveY                      { "     "   "      WhereY "      }
  23.                      : RowType;
  24.    Xheap             : ColumnType;
  25.    Yheap             : RowType;
  26.    HeapTop           : ^Integer;  { for marking current top of heap }
  27.  
  28.    Ch                         { as in read(Kbd,ch) after KeyPressed }
  29.                      : Char;
  30.  
  31.    page                       { screens for SaveScreen, RestoreScreen,
  32.                                 and MoveBg }
  33.                      : array[1..2] of HeapBuf;
  34.  
  35.    VideoStatus       : byte   absolute $0000:$0449;
  36.    MonoBuffer        : AnyBuf absolute $B000:0000;
  37.    GraphicsBuffer    : AnyBuf absolute $B800:0000;
  38.    Regs              : Result;
  39.  
  40.    S,                         { general string array }
  41.    FileDesc,                  { File name and extension for EXEC }
  42.    ComLine                    { Command Line setting for EXEC    }
  43.                      : AnyString;
  44.  
  45.  
  46.  
  47. Const
  48.    H  = 'H';                  { Code for horizontal PutStr & GetStr }
  49.    V  = 'V';                  { "    "   vertical   "      " "      }
  50.    StartElapsed : Boolean = FALSE;
  51.                               { Initial value for etime function    }